
let main =
  let conv_string = ref " `.:+@M" in

  if (Array.length Sys.argv <> 2) then
    (* print_string "2 args\n" *)
    let argc = Array.length Sys.argv and
    	i = ref 1 and
    	l = [] in
    while (!i < argc) do
      Sys.argv.(!i)::l;
      incr i;
    done;
    Video.treat Sys.argv.(1) !conv_string true (* grepme *)

  else (* grepme *)
    Video.treat Sys.argv.(1) !conv_string true

let _ = main
